home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tb.d64 / chess.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  31 lines
  1. 1 REM  CHESS-BOOT
  2. 2 REM CHESS-64 IS BASED ON THE PROGRAM
  3. 3 REM CHESS C4 FROM CREATIVE COMPUTING
  4. 4 REM MAGAZINE AND WAS CONVERTED FOR
  5. 5 REM THE C64 BY P. THOMPSON, KAMBAH ACT
  6. 6 REM CONVERTION INCLUDED: A COMPLETE
  7. 7 REM REVIEW OF THE BASIC PROGRAM, THE
  8. 8 REM ADDITION OF A CHESS CLOCK, AND
  9. 9 REM IMPLEMENTATION OF C64 GRAPHICS
  10. 10 REM AND SPRITES.
  11. 11 REM PLEASE FEEL FREE TO INCLUDE ANY
  12. 12 REM IMPROVEMENTS AND ENHANCEMENTS
  13. 13 REM LET ME KNOW OF THEM THROUGH THE
  14. 14 REM COMMODORE USER GROUP ACT.
  15. 15 REM
  16. 22 POKE 53280,6:POKE 53281,6
  17. 25 PRINT "[147]LOADING ...":GOSUB100
  18. 40 PRINT "LOAD"CHR$(34)"CHS/CHAR"CHR$(34)",8,1"
  19. 41 PRINT "LOAD"CHR$(34)"CHESS/CLK"CHR$(34)",8,1"
  20. 42 PRINT "NEW"
  21. 44 PRINT "LOAD"CHR$(34)"CHESS-64"CHR$(34)",8"
  22. 50 POKE 198,10
  23. 55 DATA 19,13,13,13,13,32,82,85,78,13
  24. 60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
  25. 70 POKE 44,64:POKE 16*1024,0:CLR:NEW
  26. 100 PRINT"      [146]  [146]  [146]    [146]    [146]    [146]      [146]    [146]
  27. 110 [153]"    WAIT    WAIT  WAIT  WAIT    WAIT    WAIT        WAIT    WAIT  WAIT
  28. 120 PRINT"    [146]    [146][183] [146]  [146][183]  [183][183] [146] [183][183] [146] [183][183][183]  [146][183] [146] [183][183] [146]
  29. 130 [153]"   USRUSRUSR USR USR USRUSRUSR USRUSRUSR USRUSRUSR     USRUSRUSR   USR";
  30. 140 [142]
  31.